home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / codeco1a / frmaddin.frm < prev    next >
Text File  |  1999-06-26  |  31KB  |  995 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmAddIn 
  4.    BorderStyle     =   3  'Fester Dialog
  5.    Caption         =   "Code Completer"
  6.    ClientHeight    =   3600
  7.    ClientLeft      =   2175
  8.    ClientTop       =   2220
  9.    ClientWidth     =   6030
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3600
  14.    ScaleWidth      =   6030
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'Bildschirmmitte
  17.    Begin VB.CheckBox chkBottom 
  18.       Caption         =   "Bottom"
  19.       Height          =   375
  20.       Left            =   3960
  21.       TabIndex        =   8
  22.       Top             =   420
  23.       Width           =   795
  24.    End
  25.    Begin VB.CheckBox chkTop 
  26.       Caption         =   "Top"
  27.       Height          =   375
  28.       Left            =   3960
  29.       TabIndex        =   7
  30.       Top             =   0
  31.       Width           =   795
  32.    End
  33.    Begin VB.TextBox txtModErrHandling 
  34.       Height          =   555
  35.       Left            =   0
  36.       MultiLine       =   -1  'True
  37.       TabIndex        =   6
  38.       Text            =   "frmAddIn.frx":0000
  39.       Top             =   3000
  40.       Width           =   6015
  41.    End
  42.    Begin VB.TextBox txtBottom 
  43.       Height          =   1035
  44.       Left            =   3960
  45.       MultiLine       =   -1  'True
  46.       TabIndex        =   5
  47.       Text            =   "frmAddIn.frx":04A4
  48.       Top             =   1920
  49.       Width           =   2055
  50.    End
  51.    Begin VB.TextBox txtTop 
  52.       Height          =   1035
  53.       Left            =   3960
  54.       MultiLine       =   -1  'True
  55.       TabIndex        =   4
  56.       Text            =   "frmAddIn.frx":04AA
  57.       Top             =   840
  58.       Width           =   2055
  59.    End
  60.    Begin VB.TextBox txtCode 
  61.       Height          =   2955
  62.       Left            =   1800
  63.       MultiLine       =   -1  'True
  64.       TabIndex        =   3
  65.       Text            =   "frmAddIn.frx":04B0
  66.       Top             =   0
  67.       Width           =   2115
  68.    End
  69.    Begin MSComctlLib.TreeView tvComponents 
  70.       Height          =   2955
  71.       Left            =   0
  72.       TabIndex        =   2
  73.       Top             =   0
  74.       Width           =   1755
  75.       _ExtentX        =   3096
  76.       _ExtentY        =   5212
  77.       _Version        =   393217
  78.       Indentation     =   584
  79.       Style           =   7
  80.       Checkboxes      =   -1  'True
  81.       Appearance      =   1
  82.    End
  83.    Begin VB.CommandButton CancelButton 
  84.       Caption         =   "&Abbrechen"
  85.       Height          =   375
  86.       Left            =   4800
  87.       TabIndex        =   1
  88.       Top             =   420
  89.       Width           =   1215
  90.    End
  91.    Begin VB.CommandButton OKButton 
  92.       Caption         =   "&OK"
  93.       Height          =   375
  94.       Left            =   4800
  95.       TabIndex        =   0
  96.       Top             =   0
  97.       Width           =   1215
  98.    End
  99.    Begin VB.Menu mnuB 
  100.       Caption         =   "Actions"
  101.       Begin VB.Menu mnuBInsertErrC 
  102.          Caption         =   "Insert Err MsgBox"
  103.          Index           =   0
  104.       End
  105.       Begin VB.Menu mnuBInsertErrC 
  106.          Caption         =   "Insert Err.Raise"
  107.          Index           =   1
  108.       End
  109.       Begin VB.Menu mnuBInsertErrC 
  110.          Caption         =   "Insert Err.Raise MTS"
  111.          Index           =   2
  112.       End
  113.       Begin VB.Menu mnuInsertErrConst 
  114.          Caption         =   "Insert ErrConst for Member"
  115.       End
  116.    End
  117.    Begin VB.Menu mnuO 
  118.       Caption         =   "Options"
  119.       Begin VB.Menu mnuOptResumeNextExit 
  120.          Caption         =   "MsgResumeNextExit"
  121.       End
  122.       Begin VB.Menu mnuOptSetAbort 
  123.          Caption         =   "Set Abort"
  124.          Checked         =   -1  'True
  125.       End
  126.       Begin VB.Menu mnuOptSetComplete 
  127.          Caption         =   "Set Complete"
  128.          Checked         =   -1  'True
  129.       End
  130.       Begin VB.Menu mnuDelOthers 
  131.          Caption         =   "Delete other ErrHandlers"
  132.       End
  133.       Begin VB.Menu mnuOptStatus 
  134.          Caption         =   "gStatus"
  135.          Checked         =   -1  'True
  136.       End
  137.    End
  138.    Begin VB.Menu mnuInfo 
  139.       Caption         =   "Info"
  140.    End
  141. End
  142. Attribute VB_Name = "frmAddIn"
  143. Attribute VB_GlobalNameSpace = False
  144. Attribute VB_Creatable = False
  145. Attribute VB_PredeclaredId = True
  146. Attribute VB_Exposed = False
  147. ' Code for frmAddin (form)
  148. ' By J.M.Goebel
  149. ' This Code is Freeware if you use this code to develop new Application
  150. ' it may only be distributed as Freeware!
  151. ' just paste this code into frmAddin after you created a new AddIn-Project
  152. ' when you start the program with full compile you will see which controls
  153. ' are missing.
  154. ' Controls starting with mnu... are Menus
  155. ' Controls starting with txt... are TextBoxes
  156. ' Controls starting with chk... are checkboxes
  157. ' all textboxes must be multiline!
  158. ' you have to paste the code of modErrHandling into txtModErrHanlding
  159.  
  160. ' you can also edit the file of frmAddin and replace the part before the code
  161. ' with this (remove the ' before each line before) Ther will be an error because
  162. ' of the missing frx-file but you only have to paste the content of modErrHandling
  163. ' into the text of txtModErrHandling :
  164.  
  165. 'Version 5#
  166. 'Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  167. 'Begin VB.Form frmAddIn
  168. '   BorderStyle = 3        'Fester Dialog
  169. '   Caption = "Code Completer"
  170. '   ClientHeight = 3600
  171. '   ClientLeft = 2175
  172. '   ClientTop = 2220
  173. '   ClientWidth = 6030
  174. '   LinkTopic = "Form1"
  175. '   MaxButton = 0           'False
  176. '   MinButton = 0           'False
  177. '   ScaleHeight = 3600
  178. '   ScaleWidth = 6030
  179. '   ShowInTaskbar = 0       'False
  180. '   StartUpPosition = 2    'Bildschirmmitte
  181. '   Begin VB.CheckBox chkBottom
  182. '      Caption = "Bottom"
  183. '      Height = 375
  184. '      Left = 3960
  185. '      TabIndex = 8
  186. '      Top = 420
  187. '      Width = 795
  188. '   End
  189. '   Begin VB.CheckBox chkTop
  190. '      Caption = "Top"
  191. '      Height = 375
  192. '      Left = 3960
  193. '      TabIndex = 7
  194. '      Top = 0
  195. '      Width = 795
  196. '   End
  197. '   Begin VB.TextBox txtModErrHandling
  198. '      Height = 555
  199. '      Left = 0
  200. '      MultiLine = -1          'True
  201. '      TabIndex = 6
  202. '      Text            =   "frmAddIn.frx":0000
  203. '      Top = 3000
  204. '      Width = 6015
  205. '   End
  206. '   Begin VB.TextBox txtBottom
  207. '      Height = 1035
  208. '      Left = 3960
  209. '      MultiLine = -1          'True
  210. '      TabIndex = 5
  211. '      Text            =   "frmAddIn.frx":0293
  212. '      Top = 1920
  213. '      Width = 2055
  214. '   End
  215. '   Begin VB.TextBox txtTop
  216. '      Height = 1035
  217. '      Left = 3960
  218. '      MultiLine = -1          'True
  219. '      TabIndex = 4
  220. '      Text            =   "frmAddIn.frx":0299
  221. '      Top = 840
  222. '      Width = 2055
  223. '   End
  224. '   Begin VB.TextBox txtCode
  225. '      Height = 2955
  226. '      Left = 1800
  227. '      MultiLine = -1          'True
  228. '      TabIndex = 3
  229. '      Text            =   "frmAddIn.frx":029F
  230. '      Top = 0
  231. '      Width = 2115
  232. '   End
  233. '   Begin MSComctlLib.TreeView tvComponents
  234. '      Height = 2955
  235. '      Left = 0
  236. '      TabIndex = 2
  237. '      Top = 0
  238. '      Width = 1755
  239. '      _ExtentX        =   3096
  240. '      _ExtentY        =   5212
  241. '      _Version        =   393217
  242. '      Indentation = 584
  243. '      Style = 7
  244. '      Checkboxes = -1         'True
  245. '      Appearance = 1
  246. '   End
  247. '   Begin VB.CommandButton CancelButton
  248. '      Caption = "&Abbrechen"
  249. '      Height = 375
  250. '      Left = 4800
  251. '      TabIndex = 1
  252. '      Top = 420
  253. '      Width = 1215
  254. '   End
  255. '   Begin VB.CommandButton OKButton
  256. '      Caption = "&OK"
  257. '      Height = 375
  258. '      Left = 4800
  259. '      TabIndex = 0
  260. '      Top = 0
  261. '      Width = 1215
  262. '   End
  263. '   Begin VB.Menu mnuB
  264. '      Caption = "Bearbeiten"
  265. '      Begin VB.Menu mnuBInsertErrC
  266. '         Caption = "Insert Err MsgBox"
  267. '         Index = 0
  268. '      End
  269. '      Begin VB.Menu mnuBInsertErrC
  270. '         Caption = "Insert Err.Raise"
  271. '         Index = 1
  272. '      End
  273. '      Begin VB.Menu mnuBInsertErrC
  274. '         Caption = "Insert Err.Raise MTS"
  275. '